home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / background_9276.txt < prev    next >
Encoding:
Text File  |  1990-04-09  |  3.5 KB  |  167 lines
  1. -- background: 9276 from stack: in
  2. -- bmap block id: 15969
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on Opencard
  8.   set the scroll of background field "text1" to 0
  9.   set the scroll of background field "text2" to 0
  10. end openCard
  11.  
  12. on lockit
  13.   set the locktext of background field "text1" to "true"
  14.   set the locktext of background field "text2" to "true"
  15. end lockit
  16.  
  17. on unlockit
  18.   set the locktext of background field "text1" to "False"
  19.   set the locktext of background field "text2" to "False"
  20. end unlockit
  21.  
  22.  
  23.  
  24. -- part 2 (field)
  25. -- low flags: 01
  26. -- high flags: 0007
  27. -- rect: left=120 top=4 right=225 bottom=507
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 14
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 17
  35. -- part name: Text2
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   global FrontField
  39.   put "FS" into FrontField
  40.  
  41.   set lockscreen to true
  42.   set the scroll of background field "text1" to 0
  43.   set the scroll of background field "text2" to 0
  44.   hide background field "text2"
  45.   show background field "text1"
  46.   hide card button "OK"
  47.   unlock screen with visual effect dissolve
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 1 (field)
  53. -- low flags: 81
  54. -- high flags: 0007
  55. -- rect: left=120 top=4 right=225 bottom=507
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 14
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 17
  63. -- part name: Text1
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   global FrontField
  67.   put "OV" into FrontField
  68.  
  69.  
  70.   set the scroll of background field "text1" to 0
  71.   set the scroll of background field "text2" to 0
  72.   -- hide background field "text1"
  73.   put empty into bg field "text2"
  74.   -- show background field "text2"
  75.   hide card button "OK"
  76.  
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 6 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=35 top=91 right=120 bottom=80
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 2442 / 2442
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   set lockscreen to true
  96.   global FrontField
  97.   put "OV" into FrontField
  98.   unlock screen with visual effect dissolve
  99.  
  100.  
  101.   hide background field "Text1"
  102.   put empty into bg field "Text2"
  103.   put "This will take you to the Help Screen, where you are now." into bg field "Text2"
  104.   show background field "Text2"
  105.   show card button "OK"
  106.  
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 8 (button)
  112. -- low flags: 00
  113. -- high flags: 2000
  114. -- rect: left=290 top=300 right=329 bottom=335
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 30557 / 30557
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: 
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   global FrontField
  126.   put "OV" into FrontField
  127.  
  128.   set lockscreen to true
  129.   hide background field "Text1"
  130.   show background field "Text2"
  131.   go to card "covercard"
  132.   unlock screen with visual effect scroll right
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 9 (button)
  138. -- low flags: 00
  139. -- high flags: 2000
  140. -- rect: left=425 top=300 right=329 bottom=469
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 9632 / 9632
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: 
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  152.   if it = "Cancel"
  153.   then
  154.   exit mouseUp
  155. end if
  156.  
  157. if it = "Home"
  158. then
  159. visual effect iris open
  160. domenu home
  161. else
  162.   show menubar
  163.   doMenu "Quit HyperCard"
  164. end if
  165. end mouseUp
  166.  
  167.